(compilation-setup, compilation-sentinel):

Remove space after `:' in mode-line-process.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index cc7e0b6fb28c2852b35a5040ea68c0fbd7727d95..2ec9edae9e9d910294cab1677d7733fe4a196d17 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -413,7 +413,7 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)."
 ;; Prepare the buffer for the compilation parsing commands to work.
 (defun compilation-setup ()
   ;; Make the buffer's mode line show process state.
-  (setq mode-line-process '(": %s"))
+  (setq mode-line-process '(":%s"))
   (set (make-local-variable 'compilation-error-list) nil)
   (set (make-local-variable 'compilation-old-error-list) nil)
   (set (make-local-variable 'compilation-parsing-end) 1)
@@ -474,7 +474,7 @@ See `compilation-mode'."
                      (insert " at " (substring (current-time-string) 0 19))
                      (forward-char 1)
                      (setq mode-line-process
-                           (concat ": "
+                           (concat ":"
                                    (symbol-name (process-status proc))))
                      ;; Since the buffer and mode line will show that the
                      ;; process is dead, we can delete it now.  Otherwise it